begin

    using Pkg

    Pkg.add(["FFTW","Plots","CSV","DataFrames","Statistics","PlutoUI","Peaks"])

    using FFTW, Plots, CSV, DataFrames, Statistics, PlutoUI, Peaks

end

data = CSV.read("stream_simple.csv",DataFrame)

plotly()

function runave(data;alpha=0.9)

    ave = mean(data)

    runs = []

    for i in 1:length(data)

        ave = ave * alpha + (1-alpha) * data[i]

        push!(runs,ave)

    end

    return runs

end

function peaktime(data)

    res = []

    for i in 2:length(data)

        if data[i] - data[i-1] > 100

            push!(res,50)

        else    

            push!(res,data[i] - data[i-1])

        end

    end

    return res

end

run_ave = Float64.(runave(data.Count;alpha=α))

@bind α Slider(0.8:0.01:0.99;default=0.9)

p = plot(data.Time,run_ave);

scatter!(p,data.Time[peaks],run_ave[peaks])

peaks = peakprom(run_ave,20)[1]

peaks[peakprom(run_ave,20)[2] .> 0.2]

res = peaktime(peaks)

bpm = 60.0 ./ (res ./ 10)

plot(data.Time[peaks[2:end]],[bpm,runave(bpm)])